home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Sample Code / Newton Sample Code 1.1 / Proto Templates / Keys-3 / Project Data < prev    next >
Encoding:
Text File  |  1994-02-28  |  587 b   |  18 lines  |  [TEXT/ttxt]

  1. // Copyright © 1993-94 Apple Computer, Inc. All rights reserved.
  2.  
  3. constant kAppSymbol := '|Keys:PIEDTS|;
  4.  
  5. // first open the resrouce file containing the picture
  6. // that I want. NOTE: you must use a full Macintosh
  7. // pathname for the file. the 'home' constant represents
  8. // your project file path.
  9. r := OpenResFileX(home&"pictures");
  10.  
  11. // now read in the picture and assign it to a variable
  12. // the second argument says not to generate a mask
  13. planet_Picture := GetPictAsBits("Planet", nil);
  14. TARDIS_Picture := GetPictAsBits("TARDIS", nil);
  15.  
  16. // then close the resource file
  17. CloseResFileX(r);
  18.